subroutine init_mat_param
  use mat_param
  implicit none

  dist_a0=0
  mat_density=0
  atomic_no=0

  return

end subroutine init_mat_param
